home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Language/OS - Multiplatform Resource Library
/
LANGUAGE OS.iso
/
t3_1
/
xlib.lha
/
xlib
/
xcharstruct.t
< prev
next >
Wrap
Text File
|
1990-06-01
|
1KB
|
16 lines
(herald xcharstruct (env tsys (xlib interface)))
(DEFINE (MAKE-XCHARSTRUCT) (CONS 'XCHARSTRUCTP (MAKE-BYTEV 12)))
(DEFINE (XCHARSTRUCT-LBEARING X) (MREF-16-S (CHK-XCHARSTRUCTP X) 0))
(DEFINE (XCHARSTRUCT-LBEARING! X Y) (SET-MREF-16-S! (CHK-XCHARSTRUCTP X) 0 Y))
(DEFINE (XCHARSTRUCT-RBEARING X) (MREF-16-S (CHK-XCHARSTRUCTP X) 2))
(DEFINE (XCHARSTRUCT-RBEARING! X Y) (SET-MREF-16-S! (CHK-XCHARSTRUCTP X) 2 Y))
(DEFINE (XCHARSTRUCT-WIDTH X) (MREF-16-S (CHK-XCHARSTRUCTP X) 4))
(DEFINE (XCHARSTRUCT-WIDTH! X Y) (SET-MREF-16-S! (CHK-XCHARSTRUCTP X) 4 Y))
(DEFINE (XCHARSTRUCT-ASCENT X) (MREF-16-S (CHK-XCHARSTRUCTP X) 6))
(DEFINE (XCHARSTRUCT-ASCENT! X Y) (SET-MREF-16-S! (CHK-XCHARSTRUCTP X) 6 Y))
(DEFINE (XCHARSTRUCT-DESCENT X) (MREF-16-S (CHK-XCHARSTRUCTP X) 8))
(DEFINE (XCHARSTRUCT-DESCENT! X Y) (SET-MREF-16-S! (CHK-XCHARSTRUCTP X) 8 Y))
(DEFINE (XCHARSTRUCT-ATTRIBUTES X) (MREF-16-U (CHK-XCHARSTRUCTP X) 10))
(DEFINE (XCHARSTRUCT-ATTRIBUTES! X Y)
(SET-MREF-16-U! (CHK-XCHARSTRUCTP X) 10 Y))